-- HUMAN RESOURCE MACHINE PROGRAM --
-- 40-Prime-Factory - SIZE 23/28 - SPEED 414/399 --

a:
    COPYFROM 24
    COPYTO   21
    BUMPUP   21
    INBOX   
    COPYTO   20
    COMMENT  0
b:
    BUMPUP   21
c:
    COPYFROM 24
    COPYTO   22
    COPYFROM 20
    COMMENT  1
d:
    SUB      21
    COMMENT  2
    JUMPN    b
    JUMPZ    e
    COPYTO   23
    BUMPUP   22
    COPYFROM 23
    JUMP     d
    COMMENT  3
e:
    COPYFROM 21
    OUTBOX  
    COPYFROM 22
    COMMENT  4
    JUMPZ    a
    BUMPUP   22
    COPYTO   20
    JUMP     c


DEFINE COMMENT 0
eJwrYGBg0Oa2z9Xjkly3ntNo0ipu77JnPE35twXWxF8UyU04Kf493VVySburpNEkDommuSfFb63jkDi5
yElKtvmr3Pd0I4XC5HzF94npKu8T49Q/p4RpsRRe1ZJsuKr1vPOu+uSVQOMZfpkYpWywMEqZa38wT8yJ
p/yK073mSc7XVk91Orlorv3nSa+sPk+qMOVYVGEasqrYPHFznmXqtmiHx1t6Xc8tBek3CLDPXR/AUbI+
oHDiZ7+YDSCxIv/F2iA6JCqgckqU7MYL0YUTGxOb8u2T7HN3pOzN1s+wz03LPlf+KCe1Y0Hu9DUgtf8m
TpavmRQR6NF3ax2Iz77sWq3n0oDKC4u8y+7OlW2Wn7ukPXFOwPJ5c9W2H12mtr1updKW3atiNlSvKp1y
YMXjNscV12o7lzblg/S67XMuENl5qSpi++zGuVtXdD3afHKR4pbpa+ZuTdx8a9uSred3qW3v2Ju67ci+
xM12BwOW/zl4dP6WIz+mbjkyv+Xb4cnVdgedC0DmzDkrWDX9fN03EDv8PEth0EXrLO4r39Odrpulm9/+
k2V0l6dc/97nSUZ33RfuvCW6+uD16Wv6L4muFr3Qv0zivPM8hlEwCigEACeJzG0;

DEFINE COMMENT 1
eJxbwsDAwCExP2yiSERguFBEYKzAvdB4/szYJL66nCQ+nnIF/oBKYZFrtQzS12p/yJambZNjEAJqYbil
sSJmtkZ/BYj9QK3UAkQ3GD2K2GXyPf2TOU/5ewvvsvl290KlHaYHgOTOxcwP84mFqL8ctVgbRO9IUYww
SVsSWZi+JfVDOkPehnTvsg3pRilvM5ZEpuRM9r2fG+B9N6/Pa2qhqH9gsWTQ2ZIVMd2lJ0tAen17rPiC
uraYB3XxeIZ2qkWHdgZUgsRDOyMCT/YK+thOmuxrMUU2dNuU59HlU5wLrCbzlDNMvFZ7pD+ivr87ov5O
G5APBAvnXPKRmv8o4vLCg3lCiyBidSt5PO1XJoSzL/uTdXVBTJPGrIDl66bPXg+SKzp6q2HPQTNLhwP3
1B0OsIge2m8v2HCglCvrRCE7SP7Unh1Wew5+Nis98tkMxA8/H+B9+UKAd+eV6QH7bjyPNrp7ssTobkgN
SK7l2s4M0QsMeXPOuhffPBdSc+08MJxviNaC5C68DPETf37Nf/bThPBbT1/HTXtun9v3yrvs6NuAyl8f
IX71ed3ndeB9nxeInfbTiGPFj738K36cK////zdY/tfHe+rZ3xW1kn+p6Ur+U9MFidV6e5f99r51B8Q+
Fr9ih0CM2vZrka93RUVsOTgvbPotqYh79y9H3bvvFSd553DCucv7kqqO/k3S2lWXpLYdpOduXuq2RznP
ty/Ltj+5LNvn0qOcmHu38hc84C9Z8MCzTPSmZ9ne434lhfsnF73eNbXw9S6QnlWNkuuyG///B7GfN91a
F9Ehutqrd8nWrt7cPT09B08FdZ27vKil/0pGE+9lhlFAdwAA8kAaCw;

DEFINE COMMENT 2
eJzbw8DAsIX9ZEkB5+u4As57oUAuQwVbig6IFhA9WRIkclCIV2wvv5XsXn6Q2EM+BodKWXt7ENvE/JLP
JvOjhYYW1/wLLC756FgJ+kg7TA+Y7jg7ONRpSaSv6/vEM64cJSC1yqGi/s+CA7xXBvV56QZe8inyfxSx
xa8u56N/W9G7AI6SqIiTJRKRTfkSkWrRMyNuBcmGB3iD9O1LquS1SZZVb0xUi96XtDOjMoWl8FNaW5F+
BkshSN4nNkL5Q7qoIoh9p80+V7p9SaRCK4vovdYdPHfazLi9enfwgOSK6wpNBbqNzDz63huD+FWTOdxW
zrwVtHAOxJyiaXqJNZOMUuonfk93mOheXDW5v2LNjHPlGrO6SkHy2Rsu+fxaFRG4d2VMiP3KNfGOK8zS
HVe4F/9fwVNus6q/4v26/opXGzhKMjc25YPU8+0+K+2xt9SiY++5chBfccsawz0HtQxA7CWn5oe9OT4/
7ONRtegvR4xSvhzZm73paFN+wbGjhRknjxbeO1OXI3G+NC38/IoY2bOi/iA9jdcv+fy9kZtQc/NoYc1N
s3Tz2/PDTO/EhKQ/vBUEkp+gYzb1gs6CBz56ua/aDPReg8Rma1xbPU1LdHWbwez1hwxvrQOJfTL/cVjP
UunRe4uAq3mW7uef2Hw+cNMhdw+fa+4ekPxPn8TNxv6C10DsaZGF+6dFlh2SirA/+Tik/8pH1///QeKB
xWWHwgpl718vkLwTVrj3+KWiDfvYy2M2/KnK3GlZs2GfWe3e46W1Cx6A1M5qtz8p1nnw1MlehlMME80P
10zK3Mk8Yf6mk72yG0M7V+yIbXM+E9sWcftOW8w9tn7Z+8wTZt8F6eNaumSr+AKWs/FzA64+ni14LX3W
9Fsgca2ZiZs1ZiVufjDn9S7/xaI3QWI6G9Q6NTe+78/c2LYge8PjRyCxHaud593Z6jwPxLb5GOIHoSFp
cRSgAgBxjDDM;

DEFINE COMMENT 3
eJwLY2BgmCgSUS8genQ+kMkQKjw7GESvUzw457XSUecXyoWmj1VTdG5pyKpf0JFVP6GfogOS/yF7zZ/J
SDYUxHbw4l1a670l9aePvX2pX6FpfoCWgWrIawOQnKDL7OD04HtgdROjT5a4x58scUrsr7BJTmitTNk7
EyTeFr9zmlec2dRpkWZTpSJ2TpsT3rU4KqJ/2enY6WtcEqavqUy5tAKkrrS2q5SloquUp1S09lLR50mT
i+xnTyh2X9hRFrC8ofLSio91gmB1bP2y6h59Zz09+uxzfXvcF4LE5rf2ef2byOMJYk9b4F22cE5Xafqs
S1U5Mx636c6wn50z4+j8lNnnlgotOrfUZ8nBOaeXGE3iXXKrYeKigErRhV2lIH2vNghWZW/4MVV/Pe/S
wnVNczesy+zO3ChYxbPnXDlI3utKRD2I7rwCcccoGAVDAQAAxHyEiw;

DEFINE COMMENT 4
eJzbwcDAoMYrGXRNKCHcXWJ+mL30ZN990jyehyVZnH3FGBwkhBgcFvG5uyrzBXgv4tuZcVOQp/ygVH+F
rUxXKVArg7x6l7u8+vvEx6onSx6rPo+epy7qH6Mh6BOpGeA9WbvPy1P/ko+j0a2gvcbPo21MmvJBehy8
jjoLuhx1FnZ2d022VYxIs9FLTLPZmbHUZm+2nP3BvF7Xpvzj7va5TZ6fUxy8ZEMdvOrsjnjcUz/iwSEB
0v8rmcfzR4qgz7bUW0H6GWrRmVn2uY9yLvnMzm9zES/s87pUlJvgV/Inq6OMIc+xksdze02lNUhfanMm
4/OmvdmxbaL+wl1Hndv7ONyYJ/B47ps4PcB2kmgtSM3j2YoRvEseRbgslw1lWiEZ5LiCw+3oskrrvsXf
LactsLefPQ/o37myobPnWWeJL2ApnLjIvbh5+dFCkN6365scMzd+T3++8X3iio0szk83Wdsobtlhxbe7
0vrIPmen2oN9XlWH1sSD1KbZNJ1Os+m/8shW7zWIn211bTWI5nZrOu3hznL2uDvHhePuK54xe567/Nt7
55GfPmWHDAI+H3gWbH74QWj/lYWhG96A1C/OqTo6o8D8cHW19TEQ/0WW1gvxwtQnjJWpT0D81zPKPmyZ
WnbIaNrBOeumG01Kn6XXHzMvtw8kd7L33kalOfM3gdj8i3cecVludODrGqMDa9ebH166yefSo82f34Hk
9Nffu9+8XPZ+95LcV91Ldn7qXPrnC+vyum+F6+q+geS3HCncv+fg+71u+z4fOL9r73HBXU2nL+2UvNO7
O/XJkX25r7Yf/vzu3TGIWfFn7jVLn/NeIn3u/V7RC2tegsSMj7ov5L18dD6InX9Pa5fpHa1dlbcK9/+9
seCB7c3UJ6Z39F7r39vw5sWD96/lnyQ+XPA44Orr+2WHNt5dsxukp+3t4y0u755vd3x/8oLj+8SHez9U
HTX5smJH3rfMnQyjgCAAACVqSB0;

DEFINE LABEL 20
eJwTYWBguBZ5MC88cs1uIJMhJMrZCUR/SvuT9SlNsW1batfibakb9mllfZ70IutarUrOyZIFuU35wUVV
mc4Vf7IaKhny/lSdK/9Zvab3Z/WKHQyjYBSMgiEFAA20JUA;

DEFINE LABEL 21
eJzzZmBguKRdd2Ky9vu9kZohqx6rshQuUDvqPE1Ly6BPN0btv5GoIlAJwza5zNgvZpmxIPYbyzW9z60z
u4OdM7v5XF/3NHkyzKn36l+232vFjibP59t7Xa+tFnO6tlrNRmvXCuv3e9Vsdh65Y990usuN48Jvb/uT
IDMaEzdM8Ip7338hunCiaNTnSXPCrWc8CD06f2HovY33wrR2hUd+PsCQZH7YKmXDPpD6yIJK66uFPJ7B
RbkJk4sydwYW5+7ZX6m3FyT3KvN9omdZbgKI3d4XUT+lM6bpTtvjtuSW9/0ZTeeWLm9asWNpc+6eOW1G
BwK6jQ40TVDasm9i1+L6iRsmePQ9buvvlm0G6dWY9bht4ZyDcxbOUdt+d67sxph5nydNWzC70X/x9Lod
q6fXMYyCUTAMAQAY4Ijc;

DEFINE LABEL 22
eJyLYWBgOKG/Jl5JbUmkuopatL7i+8Svcgx5P2Q5SiplZZu3yWn1fJbX61+ttGFCjMbrnjCt551c+qK1
hwyrMpmM3ic6GoWscjPIfA40hiHD+nXcCuvUjlj7Nb39Lrl93G5aPWwe95qZPd2LmT3VokFqYsLXxKuG
rIlfE2idlR/gXrw+YEn7msDnnSFRzzsnRqd2+MfINvfFVGUGRW9IuhGhFRcflhmrHDo/DKS3MP2oaF4G
j/TqzB1WmVkHHVZkida+yJJsuJt3rxkkvzv5s1lkAYMDiL2/sjC5oTK1A8S2q9IzBtH3Wpvy2/ucC470
781m608ID+iWDBLrvBX0pHlFzKrGP1nZjQmtCq2Z3V69r3tA6tfMWBHzbnrhxHXTjVKyZr6OS5m9Imba
ghUxp5cYpRxd5lxwdNnjNpA69U17+ZM3t4nJbTUym7tVsS1iu9Ekv92fJ7Hte98Pkl+7vtTi0eZK6zO7
99oyjIJRMMgAAAzekkE;

DEFINE LABEL 23
eJwrZ2BgKOJgKSzi2DntC/vnSV/Yvcs2cTgXpPJuSY0VMEoBSjN0iovWblS41fBCWbJBSe1SVaIaS+FT
lbocVsmqzJPif7J4xbzL/EVf95wTrZvFKskyv0S+bQFIH5d+V+kpPYY5PHp7Z57VXdLOYtiUz2TEkFds
3pS/1rK/Yq3l47ZN5ntnptnMb0m27Sqda3+yRNLRu0zYeXI1n2tCq7eb0SRvN4Y5ILN++tTlfPTfmZEU
WpV5OaopnyvOu6wtPqSmJUGvHyTPG6vVcztcqyc9eMOE9QEMc/IDvJfkBp5bejr23FKQfFv8mt62+INg
s7Sy+ivSsiHiK7JmB4PoS0VN+TylWj1Hy90XupWv6GquYCm0q7LOsq6uytxeU5VZUN+Ur9Ca2jG/lRes
L2YeS+HKmQx5VZPPle+ZJFj1b2JMk8PELZP3Tdw702IKxyKNWbxLH8/mWHR73udJ4gtEa8UXHHSYOf+5
Lkjvp7WP2x5tnt8ya5tkw4ztk6uvb+8qFdvBkBex/U+WzLbv6Y82l6at3lCVabLWucB8jXux5WrZZsvV
GyaYr7GesXlt09zVG47Ov7UNEsaH9rsXOxw4V+5wwHpG7cH+CrMjRwvXHzuYN/+McwHDKBgFRAAA+kfF
2w;

DEFINE LABEL 24
eJyTYGBguNYRoazdOF1pV7Wi1t6qFXqnSs96Cha/T7xeINkwo4BhztXCW+t4SrccZC83P7y0WfRmaGfE
7TM902+194XcsJp89GzOjEsrXswsnPhipmyowXQW529Tdlg1TdhgEtEhqcIwCkbBKBjUAACF9y3u;

